home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.graphwindow < prev    next >
Text File  |  2007-03-01  |  1KB  |  31 lines
  1. 0010 ╨╥╧├ GRAPHWINDOW(╥┼╞ SCALE(,),NUMBER,AREA) ├╠╧╙┼─
  2. 0020   // MODIFIED 13.6.86
  3. 0030   // NUMBER EACH WINDOW;ENTER MAIN COORDINATES UNDER ├┴╙┼ NUMBER ╧╞
  4. 0040   //├┴╙┼ AREA ╧╞ SETS ITSELF
  5. 0050   //1=OUTER WITH WINDOW COORDINATES
  6. 0060   //0=INNER GRAPH AREA WITH SCALE(,)
  7. 0070   //2=FULL OUTER WITH SCALE(,)
  8. 0080   ╒╙┼ GRAPHICS
  9. 0090   ├┴╙┼ NUMBER ╧╞
  10. 0100   ╫╚┼╬ 1 // ALTER AS NEEDED
  11. 0110     VIEWPORT(0,319,0,199)
  12. 0120     WINDOW(0,10,0,10)
  13. 0130     //╫╚┼╬ 2
  14. 0140     //VIEWPORT
  15. 0150     //WINDOW
  16. 0160   ┼╬─├┴╙┼ 
  17. 0170   // INNER WINDOW MATCHES GRAPH:-
  18. 0180   // INCLUDES LABELS$ AREA
  19. 0190   ├┴╙┼ AREA ╧╞
  20. 0200   ╫╚┼╬ 0,2,3
  21. 0210     VIEWPORT(INQ(19)+38,INQ(20)-16,INQ(21)+12,INQ(22)-28)
  22. 0220     WINDOW(SCALE(1,1),SCALE(2,1),SCALE(1,2),SCALE(2,2))
  23. 0230     ╔╞ AREA=0 ╘╚┼╬ VIEWPORT(INQ(19)-3,INQ(20)+16,INQ(21)+1,INQ(22)+28)
  24. 0240     ╔╞ AREA=2 ╘╚┼╬ VIEWPORT(INQ(19)-38,INQ(20)+16,INQ(21)-12,INQ(22)+28)
  25. 0245     ╔╞ AREA=3 ╘╚┼╬ VIEWPORT(0,319,0,199)
  26. 0250   ╧╘╚┼╥╫╔╙┼ 
  27. 0260     ╬╒╠╠
  28. 0270   ┼╬─├┴╙┼ 
  29. 0280 ┼╬─╨╥╧├ GRAPHWINDOW
  30. 0290 
  31.